home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / c / hce.lha / HCE / LibSource / AmigaLib / EXTRAS / Source / Extra.a < prev    next >
Encoding:
Text File  |  1992-09-02  |  712 b   |  41 lines
  1. * Extra stuff needed for Amiga.lib - (Modified J.P)
  2.  
  3.     INCLUDE "exec/types.i"
  4.     INCLUDE    "exec/lists.i"
  5.         INCLUDE "exec/io.i"
  6.  
  7.     SECTION Extra,CODE
  8.  
  9.     XDEF    _AbsExecBase
  10. *
  11. * AbsExecBase:    tell where to find it.
  12. *
  13.  
  14. _AbsExecBase    EQU    4
  15.  
  16. *
  17. * BeginIO(IORequest)
  18. *
  19.  
  20. _BeginIO:  move.l 4(sp),a1
  21.            move.l a6,-(a7)
  22.            move.l IO_DEVICE(a1),a6
  23.            jsr    DEV_BEGINIO(a6)
  24.            move.l (a7)+,a6
  25.            rts
  26. *
  27. * NewList(list) - initialize a new list.
  28. *
  29.  
  30. _NewList:  move.l 4(sp),a0
  31.            move.l a0,d0
  32.            clr.l  LH_TAIL(a0)
  33.            move.l a0,LH_TAILPRED(a0)
  34.            addq.l #LH_TAIL,a0
  35.            move.l a0,-(a0)
  36.        rts
  37.  
  38.            XDEF _BeginIO
  39.        XDEF    _NewList
  40.            END
  41.